From: Jay Belanger <jay.p.belanger@gmail.com>
Date: Sat, 4 Aug 2007 04:39:35 +0000 (+0000)
Subject: (calc-curve-fit): Change plot indicator.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~421^2~17527
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=a0e481410839089003dfed1bc58e318b4934a364;p=emacs.git

(calc-curve-fit): Change plot indicator.
---

diff --git a/lisp/calc/calcalg3.el b/lisp/calc/calcalg3.el
index 287eb114ac2..eb3611c3fd0 100644
--- a/lisp/calc/calcalg3.el
+++ b/lisp/calc/calcalg3.el
@@ -135,11 +135,10 @@
 		  "' = alg entry, $ = stack, u = Model1, U = Model2")))
      (while (not calc-curve-model)
        (message 
-        (if plot
-            "Fit to model (plot): %s:%s"
-            "Fit to model: %s:%s")
+        "Fit to model: %s:%s%s"
         (nth which msgs)
-        (if homog " h" ""))
+        (if plot "p" " ")
+        (if homog "h" ""))
        (setq key (read-char))
        (cond ((= key ?\C-g)
 	      (keyboard-quit))